home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 8 / Amoszine 8 (Disk 2 of 3).adf / Powerbobs.lha / powerbobsv1.0 / examples / pspritebob_col.asc < prev    next >
Text File  |  1992-09-02  |  833b  |  50 lines
  1. 'Collision detection between a Sprite and many Bob's.
  2. Screen Open 0,320,200,4,L
  3. Hide On 
  4. Cls 0
  5. Box 0,0 To 15,15
  6. Text 4,10,"1"
  7. Get Bob 1,0,0 To 16,16
  8. Cls 0
  9. Box 0,0 To 15,15
  10. Get Bob 2,0,0 To 16,16
  11. Make Mask 
  12. Bob Update Off 
  13. Sprite Update Off 
  14. Reserve Pbobs 10
  15. Pbob Dbuf False
  16. For I=1 To 10
  17.    Pbob Height I,16
  18. Next 
  19. Set Psprite Colours 4
  20. Convert Sprites 1
  21. Psprite 1,Rnd(100)+128,150+Rnd(20),1
  22. Sprite 1,X Psprite(1),Y Psprite(1),1
  23. For I=2 To 10
  24.    X=Rnd(100) : Y=Rnd(8)+120
  25.    Bob I,X,Y,2
  26. Next 
  27. For I=2 To 10
  28.    Pbob I,X Bob(I),Y Bob(I),2
  29. Next 
  30. Wait 10
  31. Pbob Update 
  32. Wait Vbl 
  33. Psprite Update 
  34. T=Timer
  35. For I=1 To 1000
  36.    A=Pspritebob Fastcol(1,2 To 10)
  37. Next 
  38. Print Timer-T
  39. Hide On 
  40. Bob Update 
  41. Sprite Update 
  42. T=Timer
  43. For I=1 To 1000
  44.    A=Spritebob Col(1,2 To 10)
  45. Next 
  46. Print Timer-T
  47. For I=1 To 10
  48.    Print Pfast Sprbobcol(I),Col(I)
  49. Next 
  50.